home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / meltdown.lha / MISC.SOURCE / Apear.s < prev    next >
Encoding:
Text File  |  1988-07-19  |  3.7 KB  |  162 lines
  1. *****************************************************************************
  2.  
  3.                 ******************
  4.                 *   Apear Text   *
  5.                 *      Code      *    
  6.                 *       By       *
  7.                 *     Slaine     *
  8.                 *     Arena!     *
  9.                 ******************
  10.  
  11. *****************************************************************************
  12.     Incdir    df1:
  13.     Include    source/Macro
  14. *****************************************************************************
  15.     Chip
  16. *****************************************************************************
  17.     Pos
  18.     Kill
  19. *****************************************************************************
  20.     Lea    Custom,A5
  21.     Move.l    #Copper,Cop1lch(a5)            ; Init Copper
  22. *****************************************************************************
  23.     Blitwait
  24.     Move.l    #$70000,Bltdpth(a5)
  25.     Move.l    #-1,Bltafwm(a5)
  26.     Move.w    #0,Bltdmod(a5)
  27.     Move.l    #$01000000,Bltcon0(a5)
  28.     Move.w    #256*64+20,Bltsize(a5)
  29.     Blitwait
  30.     Move.l    #$72000,Bltdpth(a5)
  31.     Move.w    #256*64+20,Bltsize(a5)
  32.     Blitwait
  33. *****************************************************************************
  34.     Bsr    PrintPage
  35. *****************************************************************************
  36. MainLoop
  37.     Pos
  38.     Bsr    BlitOn
  39.     TstMice    MainLoop                ; Wait For Mouse
  40. *****************************************************************************
  41.     Heal
  42.     Clr.l    d0
  43.     Rts
  44. *****************************************************************************
  45. Del    dc.w    0
  46. BlitOn
  47.     Tst.w    Del
  48.     Beq.s    shaba
  49.     Sub.w    #1,Del
  50.     Rts
  51. shaba
  52.     Move.w    #3,Del
  53.     Move.l    #$0dc00000,Bltcon0(a5)
  54.     Move.l    #-1,Bltafwm(a5)
  55.     Move.w    #38,Bltdmod(a5)
  56.     Move.w    #38,Bltamod(a5)
  57.     Move.w    #00,Bltbmod(a5)
  58.     Move.l    #Apear1,A0
  59.     Move.l    a0,Bltbpth(a5)
  60.     Lea    $70000-(16*40),a0        ; Src
  61.     Lea    $73000-(16*40),A1        ; Dst
  62.     Move.l    #9-1,d7                ; Number Of Chars
  63.     Move.l    XPos,d0                ; X
  64.     Move.l    Ypos,d1                ; Y
  65. Apear
  66.     Add.w    D0,A0
  67.     Add.w    D1,A0
  68.     Add.w    D0,A1
  69.     Add.w    D1,A1
  70.     Move.l    a0,Bltapth(a5)
  71.     Move.l    a1,Bltdpth(a5)
  72.     Move.w    #16*64+1,Bltsize(a5)
  73.     Sub.w    D0,A0
  74.     Sub.w    D1,A0
  75.     Sub.w    D0,A1
  76.     Sub.w    D1,A1
  77.     Add.w    #2,D0
  78.     Cmp.w    #40,D0
  79.     Blt.s    Leavex
  80.     Clr.w    D0
  81.     Add.w    #16*40,D1
  82. Leavex
  83.     Dbf    d7,Apear
  84.     Add.l    #2,Xpos
  85.     Cmp.l    #40,Xpos
  86.     Blt.s    Shaga
  87.     Clr.l    Xpos
  88.     Add.l    #16*40,Ypos
  89. Shaga
  90.     Rts
  91. *****************************************************************************
  92. PrintPage
  93.     Move.l    #$09f00000,Bltcon0(a5)
  94.     Move.l    #-1,Bltafwm(a5)
  95.     Move.w    #38,Bltdmod(a5)
  96.     Move.w    #38,Bltamod(a5)
  97.     Lea    page1,A0
  98.     Move.l    #$70000,D1
  99.     Move.l    #12-1,D6
  100. Loop1
  101.     Move.l    #20-1,D7
  102. Loop2
  103.     Clr.l    D0
  104.     Clr.l    D2
  105.     Move.b    (a0)+,D0
  106.     Sub.b    #32,d0
  107.     Divu    #20,d0
  108.     Move.w    d0,d2
  109.     Mulu    #40*16,d2
  110.     Swap    d0
  111.     Add.w    d0,d0
  112.     Add.w    d0,d2
  113.     Add.l    #Font,D2
  114.     Blitwait
  115.     Move.l    D2,Bltapth(A5)
  116.     Move.l    D1,Bltdpth(A5)
  117.     Move.w    #16*64+1,Bltsize(a5)
  118.     Add.w    #2,D1
  119.     Dbf    D7,Loop2
  120.     Add.w    #(16*40)-40,d1
  121.     Dbf    D6,Loop1
  122.     Rts
  123. *****************************************************************************
  124. Copper
  125.     Cmove    $2881,Diwstrt
  126.     Cmove    $2cc1,Diwstop
  127.     Cmove    $0038,Ddfstrt
  128.     Cmove    $00d0,Ddfstop
  129.     Cmove    $0000,Bplcon1
  130.     Cmove    $0000,Bpl1mod            
  131.     Cmove    $0000,Bpl2mod
  132.     Cmove    $1200,Bplcon0
  133.     Cmove    $0000,Color00
  134. Bit1l    Cmove    $3000,Bpl1ptl
  135. Bit1h    Cmove    $0007,Bpl1pth
  136.     EndCop
  137. *****************************************************************************
  138. Page1
  139.     Dc.b    "********************"    
  140.     Dc.b    "********************"    
  141.     Dc.b    "********************"    
  142.     Dc.b    "********************"    
  143.     Dc.b    "SLAINE HERE CHECKING"
  144.     Dc.b    "OUT HIS APPEAR TEXT!"
  145.     Dc.b    "ROUTINE DOES IT WORK"
  146.     Dc.b    "I HOPE SO !!!!!!!!!!"
  147.     Dc.b    "********************"    
  148.     Dc.b    "********************"    
  149.     Dc.b    "********************"    
  150.     Dc.b    "********************"    
  151. *****************************************************************************
  152. Font
  153.     Incbin    Gfx/16x16.bm
  154. *****************************************************************************
  155. XPos    Dc.l    0
  156. YPos    Dc.l    0
  157. Apear1
  158.     Incbin    Gfx/ApearText1
  159.     Incbin    Gfx/ApearText1
  160. *****************************************************************************
  161.  
  162.